00100		DO 32 JJ=JY+1,N
00200		IF(R(1,JJ)-R(1,JJ-1).LT.RSP)GO TO 33
00300		K=J
00400		GO TO 34
00500	32	CONTINUE
00600	C  FOUND HOW MANY MEMBERS TO CHORD.
00700	34	IF(K.NE.JY+1)GO TO 35
00800		K=JY
00900		GO TO 36
00950	35	RB=0
00955		RQ=0
00957		RD=0
00960	125	IF(AMOD(RN(L+4),200.).GT.60.)RY=.6
01000		DO 37 JJ=JY,K-1
01005		RW=AMOD(RN(IR(2,JJ+4)),100.)
01010		IF(RW.GT.11)LDGR=1
01020		IF(RW.LT.2)LDGR=-1
01060	C LDGR IS FOR LEDGER LINES.
01080		IF(RB.GT.2)GO TO 222
01090	C  JUMP IF LARGE SPACE AFTER NOTE IS ALREADY SET UP.
01100		RZZ=RN(IR(2,JJ)+7)
01200		RE=RN(IR(2,JJ)+5)
01300		IF(RB.LT.2.AND.((AMOD(RZZ,10.).NE.0.AND.RE.LT.20).
01400		1 OR.RZZ.GE.10))RB=1.5+EXTEN(RZZ)
01500	C  SPACE FOR DOT OR TAIL(IF STEM UP)
01600		IF(ABS(RN(IR(2,JJ)+6)).EQ.10)RB=RB+2
01700	C  FOR CHORD TONES ON RIGHT OF STEM UP.
02000	C  LOOKS THROUGH ALL NOTES OF A CHORD.
04200	222	IF(AMOD(RN(IR(2,JJ)+5),10.).EQ.0)GO TO 37 
04300	C  JUMP IF NO ACCIS.
04600	425	RD=2*RY+EXTEN(RN(IR(2,JJ)+5))
04700		IF(RQ.GT.RD)RD=RQ
04800		RQ=RD
04900	C  FUNCT. EXTEN=AMOD(X,1.)*10.
05000	37 	CONTINUE